home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / science / sm32a.zip / DEMO.SM < prev    next >
Text File  |  1993-11-14  |  323b  |  10 lines

  1. # This program show the difference of the complex variable a and the real
  2. # variable b on simplification of sign()
  3.  
  4. abs(a)*sign(a), a*sign(a), sqrt(a^2)
  5. isreal(b) := 1        # assume b is real
  6. abs(b)*sign(b), b*sign(b), sqrt(b^2)
  7.  
  8. islarger(1+i, 1-i)        # is 1+i larger than 1-i ?
  9. isless(1+i, 1)            # is 1+i less than 1 ?
  10.